home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TSC.LZH / SYSTEM.TDL < prev    next >
Text File  |  1987-11-05  |  2KB  |  81 lines
  1. {*SYSTEM.TDL of TSC - Copyright 1986-88 by Supratech Inc.}
  2. {** A special format file for providing SYSTEM unit definitions to the
  3.     TSC program. It is needed if SYSTEM unit will be used.
  4. **}
  5.  
  6. UNIT SYSTEM;
  7.  
  8. INTERFACE
  9.  
  10. CONST
  11.   MAXINT = $7FFF;
  12.   MAXLONGINT = $7FFFFFFF;
  13.  
  14. VAR
  15.   INPUT    : TEXT;
  16.   OUTPUT    : TEXT;
  17.   PREFIXSEG    : WORD;
  18.   HEAPORG    : POINTER;
  19.   HEAPPTR    : POINTER;
  20.   FREEPTR    : POINTER;
  21.   FREEMIN    : WORD;
  22.   HEAPERROR    : POINTER;
  23.   EXITPROC    : POINTER;
  24.   EXITCODE    : INTEGER;
  25.   ERRORADDR    : POINTER;
  26.   RANDSEED    : LONGINT;
  27.   SAVEINT00    : POINTER;
  28.   SAVEINT02    : POINTER;
  29.   SAVEINT24    : POINTER;
  30.   SAVEINT75    : POINTER;
  31.   FILEMODE    : BYTE;
  32.  
  33. PROCEDURE    CHDIR(S : STRING);
  34. FUNCTION     CHR(C : BYTE) : CHAR;
  35. FUNCTION    COPY(S : STRING; P, N : BYTE) : STRING;
  36. FUNCTION    CSEG : WORD;
  37.  
  38. PROCEDURE    DELETE(VAR S : STRING; P, N : BYTE);
  39. FUNCTION    DSEG : WORD;
  40.  
  41. PROCEDURE    EXIT;
  42.  
  43. PROCEDURE    GETDIR(D : BYTE; S : STRING);
  44.  
  45. FUNCTION     HI(X : WORD) : BYTE;
  46.  
  47. PROCEDURE    INSERT(O, T : STRING; N : BYTE);
  48. FUNCTION     IORESULT : WORD;
  49.  
  50. FUNCTION    LENGTH(S : STRING) : BYTE;
  51. FUNCTION    LO(X : WORD) : BYTE;
  52.  
  53. FUNCTION     MAXAVAIL : LONGINT;
  54. FUNCTION    MEMAVAIL : LONGINT;
  55. PROCEDURE    MKDIR(S : STRING);
  56. PROCEDURE    MOVE(VAR V1, V2; N : WORD);
  57.  
  58. FUNCTION    ODD(L : LONGINT) : BOOLEAN;
  59.  
  60. FUNCTION    PARAMCOUNT : INTEGER;
  61. FUNCTION    PARAMSTR(N : INTEGER) : STRING;
  62. FUNCTION    POS(S1, S2 : STRING) : BYTE;
  63.  
  64. PROCEDURE    RANDOMIZE;
  65. PROCEDURE    RMDIR(S : STRING);
  66.  
  67. FUNCTION    SPTR : WORD;
  68. FUNCTION    SSEG : WORD;
  69. FUNCTION    SWAP(W : WORD) : WORD;
  70.  
  71. FUNCTION    UPCASE(CH : CHAR) : CHAR;
  72.  
  73.  
  74.  
  75. IMPLEMENTATION
  76. END.
  77.  
  78. ENDLIB    {must be the last legal symbol read}
  79.  
  80. {*----- end of SYSTEM.TDL -----}
  81.